home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / workbench / addinfo / install addinfo < prev    next >
Text File  |  1995-02-27  |  2KB  |  110 lines
  1. ; Installation script for AddInfo
  2.  
  3. (transcript "Installing AddInfo...")
  4.  
  5. (copylib
  6.         (prompt "Install WhatIs library.")
  7.         (help @copylib-help)
  8.         (source "whatis/whatis.library")
  9.         (dest "libs:")
  10.         (confirm)
  11. )
  12.  
  13. ( if (= (exists "LIBS:ReqTools.library" (noreq)) 0)
  14.     (message "You need to get a copy of ReqTools.library\n"
  15.          "and copy it to your libs: directory")
  16. )
  17.  
  18. (set name
  19.         (askdir
  20.                 (prompt "Install AddInfo where?")
  21.                 (help @askdir-help)
  22.                 (default "SYS:Utilities")
  23.         )
  24. )
  25.  
  26. (copyfiles
  27.         (source "AddInfo")
  28.         (infos)
  29.         (dest name)
  30. )
  31.  
  32. (set prefsdest
  33.         (askdir
  34.                 (prompt "Install AddInfo Prefs where?")
  35.                 (help @askdir-help)
  36.                 (default "SYS:Prefs")
  37.         )
  38. )
  39.  
  40. (set prefstype
  41.         (askchoice
  42.             (prompt "Which type of prefs editor do you want?")
  43.             (help  @askoptions-help)
  44.             (choices "GadTools" "MUI")
  45.             (default 0)
  46.         )
  47. )
  48.  
  49.  
  50. (if (= prefstype 0)
  51.     (copyfiles                                                                                      ??
  52.             (source "AddInfoPrefs")
  53.             (dest prefsdest)
  54.             (infos)
  55.     )
  56.     (copyfiles                                                                                      ??
  57.             (source "AddInfoPrefs_MUI")
  58.             (newname "AddInfoPrefs")
  59.             (dest prefsdest)
  60.             (infos)
  61.     )
  62. )
  63.  
  64. (set prefs
  65.         (askchoice
  66.                 (prompt "Install default config where?")
  67.                 (help @askchoice-help)
  68.                 (choices "ENV: and ENVARC:" "S" )
  69.                 (default 0)
  70.         )
  71. )
  72.  
  73. (if (= prefs 0)                           ; conditional test
  74.     (
  75.        (copyfiles
  76.                 (source "AddInfo.prefs")
  77.                 (dest "ENV:")
  78.         )
  79.        (copyfiles
  80.                 (source "AddInfo.prefs")
  81.                 (dest "ENVARC:")
  82.         )
  83.     )
  84.    (copyfiles
  85.             (source "AddInfo.prefs")
  86.             (dest "S:")
  87.     )
  88. )                                     ; end of if
  89.  
  90. (set what
  91.         (askbool
  92.                 (prompt "Copy FileTypes to S:")
  93.                 (help "It's up to YOU.")
  94.                 (choices "Yes" "No")
  95.                 (default 0)
  96.         )
  97. )
  98.  
  99. (if (= what 1)                           ; conditional test
  100.    (copyfiles
  101.             (source "FileTypes")
  102.             (dest "S:")
  103.     )
  104. )
  105.  
  106. (set @default-dest name)
  107.  
  108. (exit)
  109.  
  110.